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NPS-PASCAL is a Naval Postgraduate School research project 
whose goal is the implementation of the PASCAL programming 
language on a microprocessor-based system. The NPS-PASCAL 
compiler consists of two software subsystems, the first analy- 
zes the source program and produces a machine-independent 
intermediate form, while the second produces target machine 
code. The system is designed to satisfy the constraints of 
Standard Pascal, as defined by the British Standards Institute/ 
International Standards Organization Working Draft of Standard 
Pascal. é. 

The analysis subsystem, defined herein, accomplishes the 
lexical, syntactic, and semantic analysis of a PASCAL program. 
It has been implemented on an Intel 8080 microcomputer, running 


under the CP/M operating system. 
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I. INTRODUCTION 


A. BACKGROUND 

NPS~-PASCAL is an implementation of the Pascal language on 
an Intel 8080 microcomputer system. NPS-PASCAL is a continuing 
research project being developed by students in the Computer 
Science Curriculum at the Naval Postgraduate School, Monterey, 
California. The original NPS-PASCAL design and implementation 
was done by MAJ Joaquin C. Gracida, USMC, and LT Robert R. 
Stilwell (SC) USN, in their thesis submitted in June 1978. 
Their work is contained in Reference 1. MAJ Gracida and LT 
Stilwell completed work on the basic constructs of the Pascal 
Language by utilizing a single-pass compiler that generated 
intermediate code; and a code generator which then generated 
8080 code from the intermediate code. With many of the Pascal 
constructs not implemented, thesis work was continued in 
October 1978 with the goal of producing a complete and debugged 
NPS-PASCAL compiler. Follow-on thesis work will lead to a 
NPS-PASCAL compiler-interpreter, and a complete NPS-PASCAL 8080 
code generator. In the discussion which follows, it is assum- 


ed that the reader is familiar with the contents of Reference l. 


B. APPROACH 

The first step in continuing the development of NPS-PASCAL, 
was to study the program listings and thesis to gain familiar- 
ity and insight into the project. A determination was then 
made to complete all work remaining on the compiler portion of 


i 
/ 


NPS-PASCAL, to the extent that it would meet or exceed the 
constructs being proposed for the standardization of the Pascal 
Langugage. Consequently, the BSI/ISO Working Draft 3 for 
Standard Pascal (BSI is the British Standards Institute; ISO 
is the International Standards Organization) was used as a 
source of Standard Pascal constructs (see reference 2). 

The next step was to acquire an understanding of the PL/M 
cross compiler available on the CP/CMS time-sharing system on 
the IBM 360-67 at the Naval Postgraduate School. Tied to this 
was an understanding of CPM80, an expansion on Intel's INTERP/ 
80, which provides the basic CP/M input/output facilities. 

The simulator contains the required facilities to test and de- 
bug PL/M programs. Reference 3 gives a detailed account of 
how to utilize the PLM Compiler and CPM80. 

The remaining effort consisted of making additions, correc- 
tions, design changes, isolating bugs, running test programs, 
and developing user assistance programs. In order to imple- 
ment certain constructs of the language, it was necessary to 
reconstruct the original grammar. Appendix E lists those fea- 
tures of NPS-PASCAL that were not implemented at the start of 
this project, and the features known to contain bugs at pro- 
ject completion. 

Due to the non-existence of a Pascal Compiler Validation 
System, validation programs were taken from various textbooks 
on Pascal to test the compiler. Since these texts gave sample 


programs that demonstrated specific Pascal constructs, each 


NPS-PASCAL construct was tested as described below. 


As a language construct was implemented in the compiler, 
an associated validation pregram was compiled to check proper 
operation. However, it became apparent early in project de- 
velopment that since there was no associated construct imple- 
mentation in the code generation portion of NPS-PASCAL, check- 
ing the generated intermediate code would prove difficult. 

The solution was the development of the first of two user 
assistance programs. The NPS-PASCAL DECODE program translates 
the intermediate code and prints out the mneumonic form of the 
compiled code, along with the associated parameters for each 
mneumonic. A complete explanation of the DECODE program ap- 
pears in Appendix F. 

In compiling a validation program that revealed improper 
intermediate code, CPM80 was used to pinpoint errors in the 
compiler. Changes were then made to the source program, which 
was then recompiled using the PLM80 compiler. The validation 
program was then recompiled, and the intermediate code trans- 
lated by the DECODE program, to ensure proper construct imple- 
mentation in NPS-PASCAL. 

As more constructs were implemented and tested, a major 
realization surfaced -- the need to access the symbol table 
during and after program compilation. The original approach 
taken to this problem was the addition of a PRINTSSYMBOLSTABLE 
subroutine to the source code. This routine printed out a 
symbol table entry's location, type, printname, and allocated 


PRT location, if any. This solution was abandoned with the 


decision to write the symbol table out to its own separate 


file, thus providing NPS-PASCAL with the ability to access the 
symbol table at translation time. Consequently, the second 
user assistance program was developed -- the NPS-PASCAL SYMBOL- 
TABLE program. This program offers the NPS-PASCAL user a com- 
plete printout of the information stored in the symbol table 
following compilation of a Pascal program. Appendix G details 
the use and abilities of the SYMBOLTABLE program. The follow- 


ing section describes the implementation of the compiler in 


detail. 


5 | II. NPS-PASCAL COMPILER IMPLEMENTATION 


A. NPS-PASCAL LANGUAGE BACKGROUND 

NPS-PASCAL is an tuleneditatton of PASCAL based on the 
BSI/ISO Working Draft of Standard Pascal (2), henceforth referr- 
ed to as "STANDARD PASCAL." NPS=-PASCAL is in complete compli- 
ance with STANDARD PASCAL's definition of a conforming process- 
or, with the following exceptions: 

(1) Identifiers, directives, and labels can be of any 
length, as prescribed by STANDARD PASCAL, provided 
their uniqueness can be determined by the first thirty 
characters. 

(2) Integers are limited to any value between -32,768 and 
+32,767. Real values can take on any negative or posi- 
tive value consisting of fourteen digits multiplied by 
ten to the -64th power through ten to the +63rd power. 

(3) “EOP" is a special symbol, or reserved word, in the 
NPS-PASCAL vocabulary indicating "end of program." 

Consequently, any program that conforms to the rules of STAN- 
DARD=PASCAL, and meets the above three qualifications, consti- 
tutes a syntactically correct NPS-PASCAL program. 

To add increased versatility to PASCAL, various features 
were implemented in NPS-PASCAL. These additions were designed 
to parallel the constructs of UCSD (Mini-Micro Computer) 

PASCAL (6), the current leader in PASCAL Systems for micro- 
computers. The implementation defined features are discussed 


( in section II.F. 


The University of Toronto's parse table generator (5) 
was used to specify NPS-PASCAL in LALR(1) grammar form. The 
program operates on the IBM 360/67 and produces the parse 
tables for the language, thus permitting extensions to be made 
in an easy and efficient manner. A complete description of 
the NPS-PASCAL grammar, its generation, and execution proced- 


ures are contained in the NPS-PASCAL User's Manual (8). 


B. COMPILER ORGANIZATION 

The compiler structure, diagrammed in Figure 1, requires a 
single pass through a source program to produce an intermediate 
language file while printing an optional source listing at the 
console. The one pass approach was taken to provide fast com- 
pilation and to reduce the required work and size of the com- 
piler. The single drawback to this one pass compiler is the 
inability to specify the exact position where program execu- 
tion is to continue after a branch. Therefore, labels are 
placed in the intermediate code where execution of the pro- 
gram is to continue. The resolution of label locations is 
accomplished by the code generating program as it scans the 
intermediate form. 

The compiler builds the symbol table, converts all numbers 
‘in the source program to their internal representation, and 
generates the intermediate file and symbol table file on the 
diskette. Compiler parameters can be set to control listings 
of the source program, token numbers, or production numbers. 
Should program errors be anticipated, another compiler para- 


meter can surpress the generation of the intermediate file. 
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C. SCANNER 

The scanner analyzes the source program character by charac- 
ter and sends a sequence of tokens to the parser. The scan- 
ner provides a listing of the source statements, when directed, 
eliminates comments, and reads the compiler parameters. 

The scanner is divided into four sections which are select- 
ively executed depending on the first non-blank character of 
the token. Upon determination of the scanning section, the 
remainder of the token is scanned and placed in the accumulator 
array ACCUM. The first byte of ACCUM contains the length of 
the token. In the case of tokens that exceed the size of 
ACCUM (32 bytes), a continuation flag is set to allow the scan- 
ner and parser to accept the remainder of the token. 

The four sections comprising the scanner handle strings, . 
numbers, identifiers or reserved words, and special charac- 
ters. The string processing section is invoked wher 2ver the 
first character of a token is a single quotation mark. The 
scanner then analyzes each succeeding character until a second 
quotation mark is scanned, indicating the end of the string. 
The program section that manipulates numbers determines the 
type of the number being scanned as it processes each charac- 
ter. This determination is used by subsequent routines that 
perform type checking and conversion to internal representa- 
tion. When the scanner recognizes an identifier, it searches 
the vocabulary table (VOCAB) to determine if the identifier 
is a reserved word. If a reserved word is matched, the scann- 


er returns the token number associated with the reserved 


word's position in the VOCAB table. Special characters also 
found in the VOCAB table, are handled as separate tokens ex- 
cept in two cases. If a period is followed by numeric charac- 
ters without intervening spaces, the special characters 
section of the scanner assumes that a real number is being 
scanned. This program section handles the real number in the 
same manner as the number section mentioned above. The second 
exception to special characters occurs when a pair of special 
characters are scanned one right after another. The scanner 
will pass both characters as a single token after assigning 


the token number from the VOCAB table. 


D. SYMBOL TABLE 

The symbol table is used to store the attributes of labels, 
constants, type declarations, variable identifiers, procedures, 
functions, and file declarations. This stored information is 
used by the compiler to verify that the program is semantically 
correct and to assist in code generation. Access to the sym- 
bol table is accomplished through various subroutines using 
based global variables to uniquely address the elements of 
each entry. 

1. Symbol Table Construction 

The symbol table is modelled after the Algol-M symbol 

table (9). It is an unordered linked list of entries which 
grows towards the top of memory. Individual entries are 
either accessed via a chained hash addressing technique as 


illustrated in Figure 2, or by means of address pointer fields 


Seman eee 


4 
HASHING FUNCTION: SUM OF PRINTNAMES ASCII CHARACTERS 
MODULO 128 
H.F.(AB) = (41 + 42) MOD 128 = 83 
H.F.(BA) = (42 + 41) MOD 128 = 83 
SYMBOL 
HASH TABLE 
127 
126 
83 1030 
82 Tae 
Links to 
previous 
Symbol Table 
2 entry 
l ENTRY 1 
i "AB" 
| 0 
| SYMBOL TABLE ACCESS 
| 
FIGURE 2 
| 
( 
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contained in other entries. This latter method of access is 
required since not all entries in the symbol table have an 
identifier, called the printname, associated with them. 

Each location in the hash table heads a linked list of 
entries whose printname, when evaluated, results in the same 
hash value. A zero in any location in the hash table indicates 
that there are no entries whose printname produces that value. 
During symbol table construction or access, the global variable 
PRINTNAME contains the address of a vector whose first element 
is the length of an identifier in a single byte, followed by 
the identifier's characters represented in ASCII format. The 
variable SYMHASH contains the hashcode value which is the sum 
of the printname's ASCII characters, modulo 128. Entries that 
produce the same hash code value are linked together in the . 
symbol table by a chain which is accessed via the individual 
entry's collision field. The chain is constructed in such a 
way as to have the latest entry constructed at the head of the 
chain. 

Each entry in the symbol table contains a number of fields, 
some of which are common to all entries, and some of which 
apply only to particular types of entries. All entries have 
the same first three fields: the collision field located in 
the first two bytes; the previous symbol table (PRVS$SBTBLS- 
ENTRY) entry address field located in the third and fourth 
byte; and the form field (FORM) located in the fifth byte, as 
shown in Figure 3. The remaining fields are used to uniquely 
describe each entry's attributes and particular identifying 


characteristics. 
18 
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There are eight different types of entries found in 
the NPS-PASCAL symbol table. Each of these types has a unique 


three bit code in its form field. The three bit code for con- 


stant entries, for example, is 001; the code for variable en- 
tries is 011. The remaining bits in the form field describe | 
other particular characteristics of the type involved. These 
characteristics are described in detail as each type of NPS- j 
PASCAL symbol table entry is presented below. 
a. Label Entries 
The form field of a label entry has the constant 


byte value of zero. A single byte follows the label's form 


field containing the hash value of the label's printname. 


The length of the label follows in the next one byte field. 


The individual printname cha after the length 


field. A two byte field following, t e , 
contains a sequentially generated integer value wi 
assigned as the label's internal label number. This value 
used as the target for branching in the intermediate code. 
An example of a label declaration with its associated symbol 
table entry is shown in Figure 4. 
b. Constant Entries 

The form field of a constant symbol table entry . | 

identifies the type of entry, and the particular type of the 


constant as well. There are five valid types of constants in 


_ NPS-PASCAL: an unsigned identifier where FORM = 01H; a signed 


identifier where FORM = 41H; an integer where FORM = 09H; a 


real value where FORM = 11H; and a string constant where 


LABEL 67; 
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ADDRESS 
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FORM = 19H. Following the form field of the constant entry 
i are the printname hash field, length field, and the printname 
characters. 

The value field may consist of another length field 
and the printname characters in the case of identifier and 
string constants, or it may contain the internal representation | 
of a constant number (two bytes for integer values and eight { 
bytes for real values). Figure 5 is an example of a constant A 
entry. 

c. Type Entries 

NPS-PASCAL has two kinds of type entries in its 

symbol table: simple type entries and type declaration entries. 


The simple type entry can also be one of two types. It indi- 


cates that either one of NPS-PASCAL's standard types is being 
assigned to the entry, or that a predefined complex type dec- 
laration is to be assigned. In the latter case, a simple type 
entry is made in the symbol table, with a pointer to a tyne 
declaration entry. In the former case, one of the following 
standard types will be assigned the type entry. 
Integer - The values of this type are a subset of the whole 
numbers whose range is the set of values: 
“maxint,-maxint+l,...,-1,9,1,...,maxint-1,maxint 


where maxint = 32,767. 


real - The values are a subset of the real numbers consisting 
of fourteen digits multiplied by ten to the -64th 


power through ten to the +63rd power. 
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boolean - The values are denoted by the identifiers "false" 


and "true," such that false is less than true. 


char - The values of this type are the defined set of charac- 
ters described in reference 8. The following relations 
hold for CHAR types: 
(1) The subset of character values representing the 
digits 0 to 9 is ordered and contiguous. 
(2) The subset of character values representing the 
upper case letters A to Z is ordered and contiguous. 
(3) The subset of character values representing the 
lower case letters a to z is ordered and contiguous. 
Type declaraiton entries, however, are generated from user 
defined types found in the source program. It is possible to 
define a chain of type declarations. An example of this would 
be an array of the type array which is itself of type integer. 
The symbol table entry for a type is as follows. 
An integer type has the FORM value of 42H, a real type has the 
FORM value of 4AH, a character type has a FORM value of 52H, 
and a boolean type has a FORM value of 5AH. A FORM value of 
7AH indicates that a type declaration entry must be accessed 
to determine the complete type of entry. The field following 
the form is a one byte field containing the hashed value of the 


printname. The next byte contains the printname's length, 


which is followed by the printname characters of the type 
identifier. The last two bytes contain the address of the ; 


specified type. An example of a simple type entry is given in 


( Figure 6. 


TYPE NUM = INTEGER; 


MEMORY 
ADDRESS 
732DH 
= ADDRESS OF 
| eae PARENT TYPE 
732BH ASCII CHARACTER M 
732AH ASCII CHARACTER U 
7329H ASCII CHARACTER N 
' 
| 7328H PRINTNAME LENGTH 
| 732748 HASH 
| 7326H FORM 
7325H PREVIOUS SBTBL 
ENTRY ADDRESS 
7324H 
73288 COLLISION 
ADDRESS 
7322H 
| 
SYMBOL TABLE SIMPLE TYPE ENTRY 
FIGURE 6 


There are seven different user definable types in 
NPS-PASCAL. A type declaration entry is constructed whenever 
a scalar type, subrange type, array type, record type, set 
type, file type, or pointer type is encountered. 

(1) Scalar Types 

By their definition a scalar type is an order- 

ed set of values whose identifiers are enumerated to denote 
their values. The form field entry in the symbol table has 
the value 07H. Scalar entries are the only type declaration 
entries that have an accessible printname. Consequently, the 
next two fields hold the printname hash value and the printname 
length. The printname characters follow these fields. The 
next field is a byte value containing the enumerated value of 
the scalar identifier. The final field is a two byte field 
storing the symbol table address of the parent type. Figure 7 
displays the scalar entry format in the symbol table. 

(2) Subrange Types 

A subrange type is a duplicate declaration of 

any other predefined scalar type, integer type, or character 
type, but with a specified lower and upper bound on its ele- 
ments. The form field of a subrange entry is OFH for enumerat- 
ed elements, 4FH for integer elements, and O08FH for character 
elements. Bytes six and seven store the address of the sub- 
range elements parent type. Bytes eight and nine hold the low 
value of the range, while the next two bytes contain the high 
value. The following field is two bytes in length and stores 


the total number of elements in the range. The final two bytes 
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hold the displacement vector value, which is utilized during 
array access. A typical subrange entry is shown in Figure 8. 
(3) Array Types 

The previous type declaration entries in NPS- 
PASCAL are called simple type entries. They are symbol table 
entries utilizing a single predefined type. Structured types 
are compositions of types in NPS-PASCAL. In other words, one 
or more types are utilized to describe a symbol table entry. 

The array type is a structured type consisting 
of a fixed number of components that are all of the same "com- 
ponent" type. The number of components are specified as a 
scalar or subrange ‘type and are referred to as the index type 
(integer and real types are not allowable index types, how- 
ever, the scalar or subrange type can be of type integer). 

The component type is of any type. 

The symbol table format for an array entry 
has a form field value of 17H. The following byte specifies 
the number of indexes, or dimensions in the array. The next 
two fields are both two bytes long, the first containing the 
address of the component type; the second containing the total 
storage requirements in bytes for the array. The eleventh 
byte holds a value representing the array's component type as 
determined in Table 1. A two byte field follows with the 
symbol table address of the array's first dimension. If the 
array has more than one dimension, two bytes are allotted in 
the symbol table to store the address of each remaining 


dimension. Figure 9 shows an array symbol table entry. 
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TYPE PRIME = RED .. BLUE; 
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Basic Type of Components 


Value Meaning (Type of Component) 
00H Ordinate 

01H Integer 

02H Character 

03H Real 

04H Complex 

05H Boolean 


ee 


TABLE 1 
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(4) Record Types . | 
A record is another NPS-PASCAL structured type. 
This structure has a fixed number of components, called fields, | 
each of which can be of any defined type. The symbol table 
entry for a record has a form field value of 1FH. Bytes six 
and seven contain the storage requirements in bytes for the | 
record. Bytes eight and nine store the symbol table address ] 
of the last field contained in the record structure. Figure 
10 formats a record entry in the symbol table. 
Each record field consists of an identifier and 
a type, and has a unique format in its symbol table entry. 
The form field has the constant value of 5FH. The following 
two fields are byte values for the hash value and the length 
of the field's printname. The next field holds the printname 
characters. The address of the parent record is stored in- 
the next two bytes. The following field has a one byte length 
and is used to store the record field's type. The choice of 


values to be stored is the same as the list specified for an 


array's component type. Two more bytes are utilized to store 


the symbol table address of the type specified. The last field 
of this entry is two bytes long and holds the offset of the 
record field from the base of the record. The format of a 
record field entry is specified in Figure ll. 

NPS-PASCAL supports the variant field and tag 
field constructs of records. These two kinds of record fields 


have similar symbol table entries as just described above, with 


( the exception that the variant form field is ODFH, and the 
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tag form field is 9FH. 
(5) Set Types 
the: set structure defines a set of values, 
which is the power set of a declared base type. The base type 
is required to be a scalar or subrange type. The set type 
symbol table entry has a form field value of 27H. The follow- 
ing two bytes contain the symbol table address of the set type 
identifier. Figure 12 shows a sample set entry in the symbol 
table. 
(6) File Types 
A NPS-PASCAL structure consisting of a sequence 
of components, all of the same type, is simply called a file. 
A file type indicates a natural ordering of the components, 
whose position in the file defines the sequence. A file type 
declaration entry in the symbol table has a form field value 
of 2FH. The symbol table address of the file type's identi- 
fier is contained in the next two bytes. The file type format 
is displayed in Figure 13. 
(7) Pointer Types 
NPS-PASCAL supports dynamic variables which 
are generated without any correlation to the static structure 
of the program. These variables are assigned a special type 
called pointer type. The symbol table entry for this type 
declaration is shown in Figure 14. The form field value is 
set to 37H, while bytes six and seven of the entry hold the 


symbol table address of the pointer type identifier's entry. 


35 


} TYPE FLAG = SET OF COLOR 
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MEMORY 
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d. Variable Entries 

Each variable declared in a NPS-PASCAL program is 
inserted in the symbol table. The form field of the variable 
entry contains a value which déscribes the type of the program 
variable. The values for this field and their associated types 
are shown in Table 2. Following the form field are the fields 
containing the variable identifier's printname hash.value, 
length, and the printname characters. A two byte field which 
contains the variable's starting address in memory appears 
after the printname characters. This address is an offset 
from the base of the variable area, called the Program Refer- 
ence Table (PRT), assigned by the NPS-PASCAL Code Generator. 
The variable's type determines the length, or number of bytes 
assigned to the variable in the PRT. The compiler keeps a 
count of the total amount of storage and passes this value to 
the Code Generator at the completion of a successful program 
compilation. The Code Generator subsequently converts the 
relative addresses in the intermediate code to absolute ad- 
dresses in the final target machine code. An example of a 
variable entry is given in Figure 15. 

e. Procedure and Function Entries 

Every procedure and function in a NPS-PASCAL pro- 
gram has an associated entry in the symbol table. In the case 
of a procedure entry, the form field is assigned the value 04H. 
The hash value, length of printname, and the printname charac- 
ters fields immediately follow the form field. A one byte 


field follows the printname and stores the number of parameters 
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The Form Field of Variable Entries 


Value Meaning (Type of Variable) 
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associated with the procedure. A two byte field is next, 
] storing the symbol table location of a listing of the proce~ 
dure's parameter types. This listing is referenced by the 


i compiler to ensure proper parameter mapping, and is located 


immediately after the final procedure parameter entry in the 
symbol table. Following the parameter types address field in 
a procedure entry, are three more two byte fields. The first 
field gives the Program Reference Table (PRT) address assigned 
to the procedure identifier. The second field gives the PRT 
address assigned to the procedure save block pointer (SBP). 
The SBP construct is based on a similar construct in Algol-E 
(10) to permit recursive subroutine calls. The final field in 
the entry holds a label value that must be branched to when 
the procedure is invoked. Figure 16 illustrates the format 
of this entry. 

A function entry in the symbol table duplicates a 
procedure entry with two exceptions. A function entry has a 
form field value of 05H; and one byte field is added at the 
end of the entry to designate the type of the function. Func- 
tion type values are similar to the variable types specified 
in Table 2. A sample function entry appears in Figure 17. 

(1) Formal Parameters 

Formal parameters provide a mechanism that 

allows a procedure or function to be repeated with various 
values being substituted. The formal parameters are declared 
in the procedure or function declaration and can be of four 


/ types: value parameters, variable parameters, procedure para- 
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PROCEDURE LO (X: INTEGER; VAR Y : INTEGER) ; 
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{ FUNCTION YZ(F,A: REAL) : REAL; 
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meters, and function parameters. Each declared parameter has 

} an associated symbol table entry. A value parameter entry has 
exactly the same format as a variable entry. A variable para- 
meter entry also duplicates a variable symbol table entry, with 
the exception of the form field. The high order bit of the 
form value is set to one for all variable parameters. Proce- 
dure and function parameters are entered as described above for 
procedure and function symbol table entries. 

Figure 18 displays a sample series of symbol 
table entries starting with a procedure entry and followed by 
various formal parameter entries. Note that the final few 
bytes show the listing of the procedure's parameter types that 
will be utilized for mapping actual parameters to the formal 
parameters. 

f. Symbol Table Construction Procedures 

Several standard construction procedures were de- 
veloped for the manipulation of the symbol table. The proce- 
dure ENTERSVARSID is used by all routines which construct a 
symbol table entry containing an accessible printname. This 
procedure calls ENTERSLINKS to assign the collision and pre- 
vious symbol table entry address fields. The procedure 
ENTERSPNS$ID is then called. to insert the printname hash value, 
printname length, and the printname characters. Control re- 
turns to ENTERSVARSID where the initial form value of the entry 
is set. When no printname is associated with the symbol table 


entry, ENTERSCOMPLEXS$TYPE is called to zero the collision field, 


( enter the previous symbol table entry address, and to set the 
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form field specified when ENTERSCOMPLEXSTYPE was invoked. 


Various other construction routines must be called to add 
additional descriptive fields for the particular entry under 
construction. 

g.- Symbol Table Access 

Symbol table access in the NPS-PASCAL compiler is 
accomplished through the use of standard lookup procedures, 
and pointers contained within entries. Access is also depend- 
ent upon the current block level of the input program. Because 
Pascal is a block structured language, the rules of global and 
local variables are followed. Whenever a procedure or function 
declaration is recognized, the block level of the program is 
immediately incremented, thus permitting variable names to be 
reused in this new level. Any variable declared in a lower 
level can be accessed in a higher level provided that the 
variable name is not a duplicate and that the lower level 
variable is in fact global to the current higher level. Ob- 
viously, identical variable names cannot be declared in the 
same block level. When the compiler recognizes a complete 
procedure or function, the block level is decremented by one 
and the variables local to that block have their entries in 
the HASHSTABLE deleted. 

The procedure LOOKUPS$ONLY can be called with the 
address of a printname aS a parameter. The procedure calls 
CHECK$PRINTSNAME to compare the symbol table entry's print- 
name with that of the parameter. The hash table index of 


the parameter is used along with the symbol table collision 
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fields to access the correct entries in the table. The pro- 
cedure LOOKUPSPNSID was designed to accomplish the same task 
as LOOKUPSONLY with the additional features of checking the 
form field of the entry with a second parameter, and to check 
the declared block level of the printname. If either pro- 
cedure succeeds in matching a symbol table entry, the variable 
LOOKUPSADDR is set to the starting address in the symbol table 
of the matched entry, and the value TRUE is returned to the 
calling routine. 

Upon compilation of a program, successful or not, 
the symbol table is copied into a separate file of type "SYM". 
The NPS-PASCAL user assistance program SYMBOLSTABLE may then 
be invoked to print out the contents of the program's symbol 
table. 

2. Built-in Symbol Table Entries 

Special mention must be made of the symbol table en- 
tries that are predefined, or built into the NPS-PASCAL 
compiler. These entries contain type entries, file entries, 
procedure entries, function entries, and constant entries that 
make up the NPS=-PASCAL standard identifiers. The standard 
identifiers are declared in the BUILTSINSTABLE. 

The entries in BUILTSINSTABLE follow much the same 
construction rules as those of the compiler generated symbol 
table. The main difference is that the built-in symbol table 
has to be entered by hand. Consequently, the table was located 
at the first available memory location (106H) for ease of im- 


plementation and to simplify the addition of other built-in 


48 


CO 


entries. Appendix C lists a table of the standard identi- 
fiers found in BUILTSINS$TABLE, and their usage is detailed 
in the NPS-PASCAL User's Manual. 

All BUILTSINSTABLE entries have an accessible print- 
name. Consequently, the first six fields of standard entries 
have the format shown in Figure 19. Built-in types and built- 
in files contain only these six fields. Built-in constants 
have an additional field that stores the constant's value. 
Built-in functions have a one byte field following the print- 
name characters that holds a sequential number that uniquely 
identifies the function. The type of the function is stored 
in the following one byte field. The next byte holds the 
number of parameters that the built-in function has. Depend- 
ing on this value, a sequence of fields follow, all of which 
are one byte in length, ranging from one to the number of 
parameters, storing the type required of the actual parameters. 
Standard function type fields are assigned values in accord- 
ance with the format specified in TABLE 1. Built-in proce- 
dures also have the one byte field holding the unique sequen- 
tial number that identifies the procedure. However, the 
number of procedure parameters and their expected types are 
not stored in the built-in entry because most NPS-PASCAL 
standard procedures have a variable number of parameters. 
Consequently, various procedures check a built-in procedure's 
actual parameters to ensure proper parameter mapping. 

Since BUILTSINSTABLE entries are entered manually, 


certain entries must be made in the compiler's HASHSTABLE.. 
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This table is used to store the starting address of either a 
BUILTSINSTABLE or SYMBOLSTABLE entry based on the entry's hash 
value. Procedure INI TIALIZESSYMSTBL stores the appropriate 
BUILTSINSTABLE address at location HASHTABLE(SYMHASH), where 
SYMHASH is the hashed value of the printname entry stored in 
the fourth field of the standard entry. 

Many of the standard functions, and their parameters, 
in NPS-PASCAL can be of type integer or real. In this case, 
the function type and parameter type fields were assigned to 
the value 13H. This value serves as a flag to the compiler 
to permit either type integer or type real values to be seman- 
tically acceptable. Similarly, standard functions SUCC and 
PRES ana their single parameter can be of any type except 
real. Therefore, their type fields were given the value OF3H 
which alerts the compiler to accept any type, except real, in 
the evaluation of these two functions. 

Further standard identifiers may be added to NPS- 
PASCAL, provided the above entry specifications are satisfied 


and that an associated entry is made in the HASHSTABLE. 


E. PARSER 

The parser is a table driven automation and is modelled 
after the ALGOL-M (9) and BASIC-E (12) parsers. The LALR(k) 
parser generator (5) produced the required parse tables and 
the vocabulary table, VOCAB, which together with the parse 
stacks serve as the major data structures in the parser. The 


parser operates by receiving tokens from the scanner, analyz- 


ing them to determine if they are part of the NPS-PASCAL 

| grammar, and then accepts or rejects the token in accordance 
with the syntax of NPS-PASCAL. If the token is accepted, one 
of two actions is taken. The parser may stack the token and 
continue to request tokens in the lookahead state, or it may 
recognize the right part of a valid production and apply the 
production state which results in a stack reduction. If the 
parser rejected the token, or it determines that the token 
received does not constitute a valid right part of any pro- 
duction in the NPS-PASCAL grammar, a syntax error will be 
printed at the console and the RECOVER procedure is called. 

RECOVER is a procedure that permits continued program 

compilation in spite of the occurrence of a syntactical error. 
It causes the parser to back up one state and attempts to 
continue parsing from that state. In the event of failure, 
the parser continues to back up until the end of the current- : 
ly pending reduction is encountered. At that point the in- 


valid token is bypassed and an attempt is made to parse the 


following token. This process continues until an acceptable 
token is found. 

The parse stacks in NPS-PASCAL consist of a state stack 
and eight auxiliary stacks. The auxiliary stacks are para- 
llel to the parse stack and are used to store information 
needed during code generation. The parse stacks include: 
BASESLOC - stores the symbol tablé address of the current 

identifier; - 
| FORMSFIELD - stores the form value of the current identifier 
as stored in the symbol table; 
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TYPESSTACK - stores the type value of an identifier; 

PRTSADDR - stores the assigned PRT atdteus of an iaenkitinc 

LABELSSTACK - stores label values to be utilized with branch- 
ing instructions; 

PARMSNUM - stores the number of formal parameters associated 
with a procedure or function; 

PARMSNUMS$LOC - stores the symbol table address of the list of 
formal parameter types associated with a procedure 
or function; 


EXPRESSSSTK - stores the type value of an expression. 


F. CODE GENERATION 

The parser not only verifies the syntax of the source 
statements, but also controls the generation of the inter- 
mediate code by associating semantic actions with production 
rules. When a reduction takes place, the SYNTHESIZE procedure 
is called with the production number as a parameter. The 
SYNTHESIZE procedure contains an extensive case statement 
keyed by the production number to perform the appropriate 
semantic actions. The syntax of the language and the seman- 
tic actions for each reduction are listed in Appendix D. 


A key element in understanding the compiler is a knowl- 
etige of NPS-PASCAL storage structures, the diverse operators, 
the employment of procedures and functions, and the communica- 
tion routes between the compiler and the user. These partic- 


ulars are elaborated below, along with a description of the 


compiler's pseudo operators, to assist in understanding 


NPS-PASCAL compiler constructs and to explain the logic used 
in generating the intermediate code that will, in turn, be 
used to generate the target 8080 machine code. 
1. Storage Space Allocation 
Allocation of storge space in NPS-PASCAL is depend- 
ent on the type cf data encountered. For each program vari- 
able requiring storage space, the compiler specifies the num- 
ber of bytes to be set aside, and keeps a count of the total 
storage allocated. The total count is then passed to the Code 
Generator for the purpose of establishing the size of the Pro- 
gram Reference Table. 
a. Byte Data 
Byte data items are stored in a single byte loca- 
tion in memory. These data items may represent characters, 
numbers, or boolean data. 
b. Integer Data 
. Integers are represented by two byte values and 
are stored in memory with the high order byte preceding the 
low order byte of the integer number. This storage process 
follows the processing requirements of the 8080 Microproces- 
sor (10) to complete moves of data from memory, or the stack, 
into the processor double byte registers at program execution 
time. An example of the execution time POP:and PUSH operation 
is shown in Figure 20. Integers are represented in two's 
complement form, with the high order bit acting as the sign 
bit. A zero high order bit indicates a positive integer value 


and a one indicates a negative value. 
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| c. Real Data 

| é Real numbers in the NPS-PASCAL compiler are rep- 
resented in binary coded decimal (BCD) format. Every real 

B number is represented by 14 digits and is stored in eight con- 
tiguous bytes. When loading a BCD value in the execution 
stack, the byte, located at the lowest memory address location, 
contains the sign of the number along with the sign and magni- 
tude of the exponent. Succeeding bytes represent two decimal 
digits and are ordered in a backwards fashion. The byte that 
} is the closest to the exponent byte represents the last two 
digits of the number, while the last byte of the number con- 


tains the first two digits. Figure 21 displays a BCD number 


stored in memory. 

The exponent byte in a BCD number uses the high 
order bit to indicate the sign of the number -- a high order 
one indicating a negative number, while a zero represents a 
positive number. The remaining seven bits are used to repre- 
sent the exponent and its sign. A bias of 64 is used for the 
exponent representation. Values greater than 64 depict a 
positive exponent; values less than 64 depict a negative 
exponent; and the exponent result equals the difference be- 
tween 64 and the value. This reference point allows a range 
of exponent values from -64 to +63. The BCD number always 
assumes the decimal point is positioned before the first digit. 

d. String Data 
Strings are stored sequentially in NPS-PASCAL. 


The first byte of the string stores the string length, thereby 
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limiting strings to a maximum of 255 bytes. Immediately 
following are the ASCII characters that compose the string. 


| 2. Arithmetic Operations 
i a. Logicals 


Logical operations, or boolean operations, act on 
byte values of zero and one only. A zero value indicates a 
false condition, while a non-zero value indicates true. Log- 
ical operations requiring comparison between two elements 
returns the resulting value of the operation in the TRUE or 
FALSE form. 

b. Integers 

Arithmetic operations with integers are performed 
by taking the top two values from the execution stack, plac- 
ing them in the double byte registers in the 8080 Microproces- 
sor, and carrying out the requested operations. Integer arith- 
metic operations include addition, subtraction, multiplication, 
division with truncation, modulo division, logical comparisons, 
and transformations to BCD format. All computation results, 
except for transformations, are returned to the execution 
stack in the two byte integer format. Any relational opera- 
tion on two integer values is carried out in NPS=-PASCAL, in 
accordance with the rules for integer arithmetic. 

c. Reals 

Real arithmetic operations are more complex than 
those with integers due to the nature of the BCD format. 
The process is similar to that of integers, however, where 


( real numbered pairs are moved into the 8080 registers. The 
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required operation is applied, and the resulting value is sent 
back to the NPS-PASCAL stack in its eight byte BCD format. 
NPS-PASCAL real values also follow the rules of integer arith- 
metic whenever two real values have a relational operator 
occurring between them. 
3. Set Operations 
NPS-PASCAL supports the three set operators: set union; 
set difference; and set intersection. As before, 8080 regis- 
ters receive the two set operands located at the top of the 
stack. The set operation is performed and the resulting set 
value is returned to the top of the stack. The relational 
operators of set equality and inequality, set inclusion, and 
set membership were not implemented in this version of NPS- 
PASCAL. 
4. String Operations 
The relational operators of equality and inequality 
have been implemented for strings. The remainder of the re- 
lational operators denote lexicographic ordering according 
to the character set ordering, and have not been implemented 
in this version of NPS-PASCAL. 
5. Procedures and Functions 
Procedures and Functions, also called subroutines, 
give PASCAL the ability to display program segments as explic- 
it subprograms. The only difference that exists between a 
procedure and a function is that a function returns a value 


to the top of the execution stack after it is invoked, while 


a procedure does not. This means that a function call 
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actually represents an arithmetic expression. Procedure 
calls, however, stand alone as a program statement in NPS- 
PASCAL. Due to language extensions, NPS-PASCAL allows compila- 
tion of separate functions or procedures as complete programs. 
These EXTERNAL programs can then be called by any other NPS- 
PASCAL program. 
a. Invocation 

Procedures and functions can be invoked with zero 
or more actual parameters. The list of actual parameters are 
substituted into the corresponding list of formal parameters 
declared in the procedure or function definition. If the 
formal parameter is a variable parameter, the actual parameter 
has to be a variable. Should the formal parameter be a value 
parameter, then the actual parameter can be an expression -- 
provided the expression type matches the formal parameter 
type. For procedure and function formal parameters, the actual 
parameter must be a procedure or function identifier. Actual 
parameter types are checked against formal parameter types, 
stored in the symbol table, during program compilation. The 


method of passing actual parameters values is via the execu- 


tion stack, as shown in Figure 22. The procedure or function's 


code location is generated in the form PRO <label> , where 


PRO is a mneumonic meaning branch to subroutine, and <label> 


‘is the label value stored in the subroutine's symbol table 


entry. 
b. Storage Allocation 


All parameters and variables declared within a 
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procedure or function are assignéd-a location in the PRT. 
These locations immediately follow the PRT location of the pro- 
cedure or function identifier. Upon recognition of a complete 
subroutine, another PRT location is allocated. This location 
is called the Save Block Pointer (SBP) for the subroutine. 
The PRT locations extending from the subroutine's identifier 
location through the SBP make up a Procedure Control Block 
(PCB). The effect is that the PCB is a contiguous set of PRT 
cells, as seen in Figure 23. The PCB construct is based on 
the one used in ALGOL-E (10), and its usefulness is in re- 
cursive calls to a procedure or function. 
c. Parameter Mapping 

NPS-PASCAL uses a scheme similar to ALGOL-E in 
Mapping the actual parameters of a procedure or function to 
its formal parameters. After recognition of NPS-PASCAL sub- 
routine identifier, the actual parameters that are identifiers, 
have their intermediate code generated in the form of a 
"PARM" or “PARMV" mneumonic followed by the PRT location of 
the actual parameter. These mneumonics load the execution 
stack with the values of the actual parameters in the Code 
Generator. If the actual parameter is an expression, the 
expression result will be loaded automatically on top of the 
execution stack. Consequently, the compiler generates the 
mneumonic "PARMX" after the recognition of a complete express- 
ion that is acting as a value parameter. PARMX will not re- 


quire any action in the Code Generator. 
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With the actual parameter in place, program control 
will branch to the procedure or function itself. The compiler 
generates code to place three items on the top of the execution 
stack. The first item is the number of formal parameters (f) 
in the subroutine, the second is the PRT location of the sub- 
routine's identifier (IDLOC), and the third is the SBP address 
in the PRT (SBPLOC) of the subroutine. The compiler then gen- 
erates the SAVP operator, followed by the total byte count of 
PRT storage (t) assigned for the subroutine's identifier and 
all formal parameters. This is followed by a listing of byte 
storage required by each formal parameter (Pi) in the PRT in 
descending order. The execution of the SAVP operator is ex- 
pected to cause the following actions to be generated by the 
- Code Generator. 

(1) The SBP location is examined 
(a) if SBP = 0 then SBP :=1, else 
(b) SPB >0 and segment of length (SBPLOC- 
IDLOC + 2) is obtained from the top of 
available memory -- say at address x. 
The PCB is then copied from the PRT to 
the memory segment starting at x. The 
contents of the segment at x is then 
called the Save Block (SP). SBP : = x. 
(2) The top two elements of the execution stack 
are deleted; the next element (f) is copied 


and deleted from the stack; pi = Pi: 
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‘ (3) If £ = 0 then halt. All actual parameters have 
| been copied into the formal parameter loca- 
tions in the PCB. : 
(4) PRT location (IDLOC + t - Pi): = top of execu- 
tion stack; delete the top element of the ex- 
ecution stack; t :=t- Pi? Py t= p,;+l. 
(5) £ := £ - 1; go to step (3). 
This process ensures that recursively calling a subroutine 
will not destroy the local variables and parameters of any 
preceding calls. 
d. Function Return Value 

Coupled with the SAVP operator is the UNSP (un- 
save) operator that reverses the actions of SAVP. Two para- 
meters are required at the top of the stack -- the SBP loca- 
tion in the PRT (SBPLOC), and the PRT location of the sub- 
routine identifier (IDLOC). The actions, then, of UNSP are: 

(1) The value stored at IDLOC is copied to the 
top of the stack (this returns a value for 
function calls; this value will be deleted 
for procedure calls). 

(2) If the value of SBPLOC is greater than 1 then 
the SB at location SBPLOC in the free memory 
area is copied back to the PCB and the memory 
is freed. If SBP = 1 then SBP:=0. Consequent- 
ly, the UNSP operator returns a value from 


6) function calls, and restores the PCB in the 


event of recursive calls. Figure 24 shows 
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the actions of the SAVP and UNSP operators on 


the PRT and the execution stack. 
e. Forward Declared Procedures and Functions 

To permit the invocation of a procedure or func- 
tion prior to its definition, NPS-PASCAL utilizes a forward 
reference. The forward reference consists of the procedure 
(function) head, followed by the word FORWARD. When the pro- 
cedure (function) is defined later in the program, the para- 
meters are not repeated. FORWARD is not a reserved word in 
NPS-PASCAL. It is instead referred to as a "directive." 
Directives are identifiers in NPS-PASCAL, that can only occur 
immediately after a procedure or function heading. Directives 
are entered in the NPS-PASCAL BUILTSINSTABLE. 

£. External Procedures and Functions 

External Procedures and Functions is a NPS-PASCAL 
extension to Standard Pascal. The outcome of this construct 
is that NPS-PASCAL functions and procedures can be separately 
compiled as complete programs. The NPS-PASCAL user can then 
gain access to one of these programs by an external reference 
to it. The format of this reference is a procedure (function) 
head, followed by the word EXTERNAL. This construct is an- 
other NPS-PASCAL directive. The intermediate code for the 
external file would then be read from the disk and incorporated 
into the program intermediate code as if it were a standard 
subroutine. This feature of NPS-PASCAL has not been thoroughly 


tested for proper implementation. 


g.- Standard Procedures and Functions 

The built-in procedures and functions that cur- 
rently exist in NPS-PASCAL correspond to the standard proce- 
dures and functions specified in STANDARD PASCAL. However, 
their operation is considerably different than user defined 
procedures and functions. The compiler first generates code 
for any subroutine actual parameters. A unique mneumonic for 
the built-in procedure or function is then generated which 
tells the Code Generator or Interpreter that it must remove 
the parameters from the execution stack, do the necessary 
operation, and return the result to the stack. The standard 
procedures for input and output (Read, Readln, Write, and 
Writeln) will not require special action to be taken by the 
Code Generator. The remaining standard procedures dealing 
with files and pointer variables generate mneumonics that 
will require action by the Code Generator. A complete listing 
of NPS-PASCAL standard procedures and standard functions is 
contained in Appendix C and their usage is outlined in the 
NPS-PASCAL USER'S MANUAL. 

6. Input-Output 
Input and output can be handled in two ways: via 

console, and via disk. Console I/O refers to the device the 
NPS-PASCAL user is utilizing to provide commands to the sys- 
tem -- usually a CRT terminal or teletype. Disk I/O refers 
to utilizing auxiliary files on the disk for data manipula- 


tion. 
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Input from console I/0 is achieved through READ or 
READLN statements. Console output is accomplished by the 
WRITE and WRITELN statements. Input to the console is accom- 
plished by an operating system routine that reads one full 
console line into an input buffer. The Code Generator gen- 
erates code to examine the buffer and convert ASCII charac- 
ters contained within the buffer into appropriate NPS-PASCAL 
internal integer, real, or string format. The input value 
is associated with the appropriate read statement variable 
parameter and then stored in the space allocated for that 
variable. A write statements takes the internal representa- 
tion of integer, decimal, or byte values and converts them 
to their ASCII character format. These values are then 
provided to an operating system print routine for console 
output. Constants and string variables are stored as ASCII 
strings in the NPS-PASCAL intermediate code; hence, the Code 
Generator will generate code to send them character by charac- 
ter to the system print routine. 

Disk I/0 is achieved through the same read and write 
statements utilized for console I/0. However, to read data 
from a disk file requires that the file identifier be speci- 
fied as the first parameter in a read statement's list of 
actual parameters. The file identifier has to be specified 
in the same location for disk write statements as well. The 
file identifiers used in read/write statements must be de- 
clared in a variable declaration part of a program block, 


or aS a program parameter in the program declaration (called 
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an external file). The file identifier has a specific PRT 
entry assigned by the compiler. At program execution, space 
will have to be allocated on the NPS-PASCAL stack for File 
Control Block (FCB) information necessary to interface file 
operations with the operating system. Additionally, -space 
should be provided for a 128 byte I/0 buffer for every declared 
file. 
7. NPS-PASCAL Pseudo Operators 

The NPS-PASCAL compiler generates a variety of pseudo 
operators that were designed to permit effective conversion 
to 8080 code in the NPS-PASCAL code generator. The design, 
however, also iends itself to the development of an inter- 
preter. Reference 1 contains an account of the current Code 
Generator's organization. With the added ability of symbol 
table access during the 8080 code generating phase, a revised 
organization is suggested and outlined in Figure 25. The 
description below of the pseudo operators is based on this 
suggested reorganization of the NPS-PASCAL code generator. 

The top item on the NPS-PASCAL stack, or execution 
stack, is addressed by the variable RA. This variable is 
also known as the stack pointer. The next-to-the-top item on 
the stack is addressed by the variable RB. The values con- 
tained in the first two bytes addressed by RA and RB are 
referenced by the variables RASVAL and RBSVAL. Real and 
string values may be represented on the stack either by 


storing the actual value itself on the stack, or by using an 


address that indicates the starting position of the actual 
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storage area. 
a. Literal Data References 

LITA: (Literal Address). This operator generates 
8080 code to place the following two byte integer value on the 
stack. 

b. Allocation Operators 

ALL: (Allocate). This operator generates code 
that initializes the number of bytes of storage required by 
the PRT. The size of the PRT is contained in the following 
two byte integer value. 

LBL: (Label). This operator is used on the Code 
Generator's first pass to calculate the address of the label 
in the code area and save it in the label table using the 
next two byte integer number as the label table index. 

LDIB: (Load Immediate BCD). This operator gen- 
erates code to place the following eight bytes on the execu- 
tion stack. 

LDII: (Load Immediate Integer). This operator 
generates code to place the following two bytes on the 
execution stack. 

LOD: (Load Byte). This operator generates code 
to move RASVAL into the 8080 HL register. The byte value 
stored at the location prescribed by HL register pair is then 
moved to the top of the stack preceded by a high order zero 
byte. 

LODB: (Load BCD). This operator generates code 


to move RASVAL into the 8080 HL register. The register is 


incremented by eight, and the value stored at the location 
prescribed by the HL register pair, and the preceding seven 
bytes, are moved onto the stack in descending order. 

LODI: (Load Integer). This operator generates 
code to move RASVAL into the 8080 HL register. The two bytes 
stores at the starting location prescribed by the HL register 
pair are then moved onto the execution stack. 

c. Arithmetic Operators 

CNVB: (Convert BCD). This operator generates 
8080 code to replace the BCD value of the top eight bytes in 
the stack by a two byte integer value. Conversion of the 
number takes place in the work area. 

CNVI: (Convert Integer). This operator generates 
code to replace the two byte integer value on top of the stack 
by its eight byte BCD value. Conversion of the number takes 
place in the work area. 

CNAI: (Convert Integer Preceding Address). This 
operator generates code to move the top two bytes from the 
top of the stack into a save area, then to move the following 
integer into the work area. Code is then generated to convert 
the integer into a BCD eight byte format. The resulting BCD 
number is then returned to the stack followed by the two bytes 
from the save area. 

CN2I: (Convert Integer Preceding BCD). This 
operator generates code to move the two bytes from the top 
of the stack into a save area, then move the following BCD 


number into the work area. Code is then generated to convert 
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the BCD number to an integer number. The resulting integer 
value is then returned to the stack followed by the two bytes 
from the save area. 

ADDB: (Add BCD). This operator generates code to 
move the two BCD values from the top of the stack into the 
work area where the sum of the two numbers is calculated and 
returned to the stack in BCD format. 

ADDI: (Add Integer). This operator generates 
code to move the two integer values on the top of the stack 
to the 8080 registers where the sum of the two numbers is 
calculated and returned to the top of the stack. 

SUBB: (Subtract BCD). This operator generates 
code to move the two BCD values from the top of the stack 
into the work area where the first BCD number is subtracted 
from the second BCD number. The resulting BCD value is 
returned to the top of the stack. 

SUBI: (Subtraction 'nteger). This operator gen- 
erates code to move the = ‘.teger values on ¥op of the stack 
to the 8080 registers where the first integer is subtracted 
from the second. The resulting integer value is returned to 
the top of the stack. 

MULB: (Multiply BCD). This operator generates 
code to move the two BCD values at the top of the stack into 
the work area where their product is calculated. The result- 
ing BCD number is returned to the top of the stack. 

MULI: (Multiply Integer). This operator gen- 


erates code to move the two integer values on top of the stack 
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to the working area where the product is calculated. . The 

resulting integer number is returned to the top of the stack. 
DIVB: (Divide BCD). This operator generates 

the 8080 code to move two BCD values from the top of the stack 

into the work area where the second BCD number is divided by 

the first. The quotient is returned to the top of the stack 

in BCD format. | 


MODX: (Modulo). This operator generates code to 


move the two integer values at the top of the stack to the work 


area where the second integer is divided by the first. The 
remainder of the quotient is returned to the top of the stack 
in integer format. 

DIVI: (Divide Integer). This operator generates 
code to move the two integer values at the top of the stack 
to the work area where the second integer is divided by the 
first. The quotient is returned to the top of the stack in 
integer format. 

LSSB: (Less Than BCD). This operator generates 
code to move the two BCD values at the top of the stack to the 
work area where the two numbers are compared. If the second 
BCD number is smaller than the first BCD number, a one is 
returned to the stack. Otherwise, a zero is returned. 

LSSI: (Less Than Integer). This operator gen- 


erates code to move the two integer values at the top of the 


stack to the 8080 registers where the two numbers are compared. 


If the second integer is smaller than the first integer, a 


one is returned to the stack. Otherwise a zero is returned. 


LEQB: (Less Than or Equal BCD). This operator 
generates code to move the two BCD values at the top of the 
stack to the work wean where the two numbers are compared. If 
the second BCD number is smaller than, or equal to, ine first, 
a one is returned to the stack. Otherwise, a zero is returned 


to the top of the stack. 


LEQI: (Less Than or Equal Integer). This operator 


generates code to move the two integer values at the top of 
the stack to the 8080 registers where the two numbers are com- 
pared. If the second integer removed from the seact is small- 
er than, or equal to, the first integer, a one is returned to 
the top of the stack. Otherwise, a zero is returned. 

EQLB: (Equal to BCD). This operator generates 
code to move the two BCD values on top of the stack to the 
work area where the two numbers are compared. If the two 
BCD numbers are equal, a one is returned to the stack. Other- 
wise a zero is returned. 

EQLI: (Equal to Integer). This operator gen- 
erates code to move the two integer values at the top of the 
stack to the 8080 registers where the two numbers are com- 
pared. If the two integers are equal a one is returned to 
the stack. Otherwise a zero is returned. 

NEQB: (Not Equal to BCD). This operator gen- 
erates code to move the two BCD values at the top of the stack 
to the work area where the two numbers are compared. If the 
numbers are not equal a one is returned to the stack. Other- 


wise a zero is returned. 
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NEQI: (Not Equal to Integer). This operator 
generates code to move the two integer values at the top of 
the stack to the 8080 registers where the two numbers are 
compared. If the numbers are not equal, a one is returned to 
the top of the stack. Otherwise, a zero is returned. 

GEQB: (Greater Than or Equal BCD). This operator 
generates code to move the two BCD mai at the top of the 
stack to the work area where the two numbers are compared. If 
the second number is greater than ob exes? to the first num- 
ber, a one is returned to the stack. Otherwise, a zero is 
returned. 

GEQI: (Greater Than or Equal Integer). This 
operator generates code to move the two integer values at the 
top of the stack to the 8080 registers where the two numbers 
are compared. If the second number removed from the stack is 
greater than, or equal to, the first, a one is returned to the 
stack. Otherwise, a zero is returned. 

GRTB: (Greater Than BCD). This operator gen- 
erates code to move the two BCD values at the top of the stack 
to the work area where the two numbers are compared. If the 
second BCD number is greater than the first BCD number, a one 
is returned to the stack. Otherwise a zero is returned. 

GRTI: (Greater Than Integer). This operator gen- 
erates code to move the two integer numbers at the top of the 
stack to the 8080 registers where they are compared. If the 


second number is greater than the first, a one is returned to 


the stack. Otherwise, a zero is returned. 


NEGB: (Negate BCD). This operator generates 
code to move RASVAL to the 8080 registers where it compliments 
the sign bit of the low order byte. RASVAL is then replaced 
on the top of the stack. 

NEGI: (Negate Integer). This operator generates 
code to move RASVAL from the stack to the 8080 registers, com- 
pliments the sign bit, and returns RASVAL to the top of the 
stack. 

COMB: (Complement BCD). This operator generates 
code to move the eight byte BCD value from the top of the execu- 
tion stack into the work area, finds the nine's compliment of 
the number and returns the compliment to the top of the stack. 

COMI: (Complement Integer). This operator gen- 
erates code to move RASVAL into the 8080 registers, finds its 
two's compliment, and returns this value to the top of the 
stack. 

d. Boolean Operators 

NOT: (Boolean Not). This operator generates code 
to move RASVAL into 8080 registers and checks the low order 
bit. If the bit is zero, a two byte value of one is returned 
to the stack. If the bit is one, a two byte value of zero is 
returned. 

AND: (Boolean And). This operator generates code 
to move RASVAL and RBSVAL into 8080 registers for a logical 
AND comparison of their low order bits. If the relation is 
true, a two byte value of one is returned to the top of the 


stack. If the relation is false, a two byte value of zero is 


returned. 


es 


BOR (Boclean Or). This operator generates code 
to move RASVAL and RBSVAL into 8080 registers for a logical 
OR comparison of their low order bits. If the relation is 
true, a two byte value of one is returned to the stack. If 
the relation is not true, a two byte value of zero is re- 
turned to the stack. 

e. String Operators 

LSDI: (Load String Immediate). This operator 
generates code to move a variable number of bytes, depending 
on the value in the following byte of the intermediate code, 
to the top of memory. The address location of the string 
storage area is sent to the top of the execution stack. 

EQLS: (Equal String). This operator generates 
code to move RASVAL and RBSVAL into 8080 registers and con- 
ducts a byte by byte comparison of the strings located at the 
addresses stored in the 8080 registers. If the strings are 
equal, a one is returned to the stack. Otherwise a zero is 
returned. 

NEQS: (Not Equal String). This operator takes 
the same actions as the EQLS operator except that a one is 
returned to the top of the stack when the strings are not 
equal. Otherwise, a zero is returned. 

LEQS: (Less Than or Equal String). This opera- 
tor behaves the same as EQLS except that a one may also be 
returned to the top of the stack of the second string is less 
than the first string in regards to the lexicographic order- 


ing of the character set. 
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GEQS: (Greater Than or Equal String). This 
operator behaves the same as the LEQS operator, except a one 
is returned when the second string is greater than, or equal 
to, the first. 

LSSS: (Less Than String). This operator behaves 
the same as the LEQS operator, except a one is returned to the 
stack only when the second string is less than the first string. 

GRTS: (Greater Than String). This operator is the 
opposite of LSSS. A one is returned to the top of the stack 
only if the second string is greater than the first. Other- 
wise, a one is returned. 

£. Stack Operators 

XCHG: (Exchange). This operator exchanges the 
values of RASVAL and RBSVAL. 

INC: (Increment). This operator generates code 
to increment the value of RASVAL by one. 

DEC: (Decrement). This operator generates code 
to decrement the value of RASVAL by one. 

DEL: (Delete). This operator deletes the top 
two bytes from the stack. RA is set to the position of RB 
and RB is repositioned to the item below its current positicn 
on the stack. 

g. Store Operators 

STOB: (Store BCD). This operator generates code 
to move RASVAL into the 8080 HL register, and then moves the 
next eight bytes from the execution stack into memory start- 


ing at the address specified in the HL register. The value 
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of the BCD number is preserved on the stack by incrementing 
the stack pointer by eight. 

STOI: (Store Integer). This operator generates 
code to move RASVAL into the HL register and then moves the 
value of RBSVAL into memory starting at the location specified 
by the HL register. The value of the integer number is pre- 
served on the stack by incrementing the stack pointer by two. 

STO: (Store Byte). This operator duplicates the 
actions described by the STOI operator. 

STDB: (Store Destruct BCD). This operator gen- 
erates code to move RASVAL into the 8080 HL register, then 
moves the next eight bytes from the stack to memory at the 
address indicated by the HL register. 

STDI: (Store Destruct Integer). This operator 
generates code to move RASVAL into the 8080 HL register, and 
then moves RBSVAL into memory starting at the address indica- 
ted by the HL register. 

STD: (Store Destruct Byte). This operator gen- 
erates code to move RASVAL into the 8080 HL register, and then 
moves the next byte from the stack to memory starting at the 
address indicated by the HL register. The stack pointer is 


decremented by one (to bypass high order zero left on the 


stack). 
h. Array Operators 
SUB: (Calculate Offset to a Specific Array 
Element). This operator generates code to move RASVAL into 


the 8080 HL register. The following byte of information tells 


how many indicies must be removed from the top of the stack and 


be used with the displacement vector information stored at 
the location indteated by the HL register. The resultant 
two byte PRT address is placed at the top of the execution 
stack. 

i. Set Operators 

UNION: (Set Union). This operator generates code 
to move RASVAL to the 8080 HL register and copy the values 
contained at the location specified by the HL register at the 
top of memory. It generates code to do the same with the 
value stored in RBSVAL. These two sets are then merged into 
one at the top of memory, and their address is returned to 
the top of the execution stack. 

STDIF: (Set Difference). This operator generates 
the same code as the UNION operator for the values stored in 
RASVAL and RBSVAL. The two sets are merged into one discard- 
ing any set element that appears in both sets. The address 
of the result is returned to the top of the stack. 

INSEC: (Set Intersection). This operator gen- 
erates the same code as STDIF except the elements that do not 
appear in both sets are discarded. 

EQSET: (Set Equality). This operator generates 
code to compare the two sets stored at the addresses specified 
by RASVAL and RBSVAL. If they are equal, a one is returned 
to the stack, otherwise a zero is returned. 

NEQST: (Set Non-equality). This operator gen- 


erates the same code as the EQSET operator, but returns a 


one to the stack if the two sets are not equal. Otherwise, 
a zero is returned to the top of the stack. 

INCLI1: (Set Inclusion). This operator generates 
code to compare the two sets stored at the addresses specified 
by RASVAL and RBSVAL. If the set stored at RASVAL is included 
in one at RBSVAL, then a one is returned to the top of the 
stack. Otherwise a zero is returned. 

. INCL2: (Set Inclusion). This operator generates 
the same code as INCL1 except the set stored at RBSVAL must 
be included in RA$VAL to return a one to the top of the stack. 
Otherwise, a zero is returned to the top of the execution 
stack. 

j. File Operators 

XTRNAL: (External File). Not implemented. 

k. Procedure and Function Operators 

PRO: (Subroutine Call). This operator generates 
code to save the present address loaded in the 8080 program 
counter (PC) register, and loads the PC register with the 
address stored in the label table and accessed by using the 
next two bytes of the intermediate code. 

RIN: (Return from Subroutine). This operator 
generates code to retrieve the address stored by the pre- 
viously executed PRO operator, and loads the value in the PC 
register to continue program execution at the point of call 
to the subroutine. 

SAVP: (Save Parameters). This operator gen- 


erates code to save the present procedure control block, if 
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necessary, at the top of memory in a Save Block. The series 
of bytes immediately following in the intermediate code are 
utilized to store the procedure parameters on the top of the 
execution stack into the appropriate formal parameter PRT 
locations. 

UNSP: (Unsave Parameters). This operator gen- 
erates code to copy a SB from the top of memory back into the 
PCB, if required. The area of memory used by the SB is then 
freed. 

PARM: (Parameter). This operator loads the value 
stored at the following two byte address in the intermediate 
code on the top of the execution stack. 

PARMV: (Variable Parameter). This operator 
loads the following two byte address in the intermediate code 
on the top of the execution stack. 

PARMX: (Expression Surat This operator 
indicates that the value on the top of the stack is a para- 
meter for a subroutine. 

ABS: (Built in Function - Absolute Value). This 
operator is generated by a call to built-in function ABS. 
This operator takes RASVAL and sets the sign bit to positive. 

SQR: (Built in Function - Square). This operator 
moves the value at the top of the stack into the work area, 
squares it, and returns the value to the top of the stack. 

SIN: (Built in Function - SINE). This operator 
moves the value at the top of the stack into the work area, 


computes the sin, and returns the result to the top of the 


84 


: stack in BCD format. 

| j coS: (Built in Function - COSINE). This operator 
moves the value at the top of the stack into the work area, 
computes the cosin, and returns the result to the top of the 
stack in BCD format. 

ARCTN: (Built in Function - ARCTAN). This op- 
erator moves the value at the top of the stack into the work 
area, takes the arc-tangent of it, and returns the result 
to the top of the stack in BCD format. 

EXP: (Built in Function - Exponential). This 
operator moves the top value of the stack into the work area, 
raises the value of the base of natural logarithms to this 
value, and returns the result in BCD format to the top of 
the stack. 

LN: (Built in Function - LN). This operator 
moves the value at the top of the stack into the work area, 
takes its natural logarithm, and returns the result in BCD 
format to the top of the stack. 

SQRT: (Built in Function - Square Root). This 
operator moves the value on the top of the stack into the 
work area, computes the positive square root of the value, and 
returns the result in BCD format to the top of the stack. 

ODD: (Built in Function - Odd). This operator 
moves RASVAL into an 8080 register and checks the low order 
bit. If it is set to one, then a one is returned to the top 


of the stack; otherwise, a zero is returned. 
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EOLN: (Built in Function - END OF LINE). This 
operator moves RASVAL to the 8080 HL register. If the value 
stored at the location specified by the HL register indicates 
an end of line, a one is returned to the stack; otherwise a 
zero is returned. 

EOF: (Built in Function - End of File). This 
operator moves RASVAL into the 8080 HL register and checks 
to see if the value stored at that location indicates an end 
of file. If the end of file is indicated, a one is returned 
to the stack; otherwise a zero is returned. 

TRUNC: (Buiit in Function - Trunc). This opera- 


tor moves the BCD value from the top of the stack to the work 


- 


area, truncates the decimal point and all numbers to the 
right of it, and returns the remaining integer value to the 
top of the stack. 

ROUND: (Built in Function - Round). This opera- 
tor moves the BCD value on the top of the stack to the work 
area, rounds it to the nearest integer, and returns the inte- 
ger result to the top of the stack. 

ORD: (Built in Function - Ord). This operator 
removes RASVAL from the top of the stack, converts it to an 
integer value and returns it to the stack. 

CHR: (Built in Function - CHR). This operator 
moves the integer value in RASVAL to the work area, deter- 
mines the corresponding character value, and returns the value 


to the top of the stack. 


() 


SUCC: 
operator moves the value of RASVAL to 
mines the successor value of the same 
result to the top of the stack. 

PRED: (Built in Function 
operator moves the value of RASVAL to 


mines the preceding value of the same 


result to the top of the stack. 


(Ruilt in Function - Successor). This 


the work area, deter- 


type, and returns this 


- Predecessor). This 
the work area, deter- 


type, and returns this 


PUT: (Built in Procedure - PUT). Not implemented. 

GET: (Built in Procedure - GET). Not implemented. 

RESET: (Built in Procedure - RESET). Not 
implemented. 

REWRT: (Built in Procedure - Rewrite). Not 
implemented. 

SEEK: (Built in Procedure - Seek). Not 
implemented. 

PAGE: (Built in Procedure - PAGE). Not 
implemented. 

NEW: (Built in Procedure - NEW). Not implemented. 

DISPZ: (Built in Procedure - DISPOSE). Not 
implemented. 


1. Program Control Operators 


ENDP: (End of Program). 


This operator causes 


the Code Generator to close the intermediate file and the 


object file terminating compilation. 


BRL: (Branch to Label). 


This operator calculates 


the label address in the label table using the next two bytes 


of intermediate code as the entering argument. The code 
count stored at the label table address is added to the address 
of the start of tia come area. This value is inserted to the 
i PC register and program control continues at piece location. 
BCL: (Branch Conditional Label). This operator 
calculates the branching address in the same manner as the 
BRL operator. However, this operator moves RASVAL into an 
8080 stack and checks the low order bit. If a one is found, 
the branch is executed. If the low order bit is zero, the 
program continues without branching. 
KASE: (Branch to Case). This operator compares 
the next two bytes of intermediate code to the value of RASVAL. 
If they are equal then a branch is executed using the follow- 
ing two bytes of intermediate code as the argument for the 
label table. If the value does not equal RASVAL then program 
execution continues without branching. (Note: "CASE" in 
not used here, it is a reserved word in PL/M which would 
| cause conflicts in the compiler source program.) 
m. Input-Output Operators 
RDBV: (Read Variable BCD). This operator gen- 
erates code to read a BCD number from the input file, change 
it into its acceptable storage form, and store the eight byte 
internal format the location specified on the top of the 
execution stack. 
RDVI: (Read Variable Integer). This operator 


generates code to read an integer number from the input file, 


change it into its acceptable storage form, and store the two 
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byte number at the location specified on the top of the 
stack. 

RDV: (Read Variable Byte). This operator gen- 
erates code to read a byte variable from the input file, 
change it into its acceptable storage form, and store it at 
the location specified on the top of the stack. 

RDVS: (Read Variable String). This operator 
generates code to read a string variable from the input file, 
and store it at the location in memory specified by the top 
two bytes on the stack. 

WRTB: (Write BCD). This operator generates code 
to move the eight byte BCD number at the top of the stack in- 
to the work area, changes the number into its printable form, 
and sends the number to the output file. 

WRTI: (Write Integer). This operator generates 
code to move an integer number from the top of the stack into 
the work area, changes it into its printable format, and sends 
the number to the output file. 

WRT: (Write Byte). This operator generates code 
to move the two byte value from the top of the stack into the 
code area, changes it into its printable format, and sends it 
to the output file. 

WRTS: (Write String). This operator generates 
code to move the string, stored at the address specified in 
RASVAL, to the output file. 

DUMP: (Starts New Output Line). This operator 
generates code to send a carriage return and line feed to the 


output file. 
89 
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IIIT. CONCLUSIONS 


The NPS-PASCAL project is a step closer to the full imple- 
mentation of STANDARD-PASCAL for Intel 8080 based microcomputers. 
With the major exceptions of PASCAL sets and files, the NPS- 
PASCAL compiler portion is complete. 

The associated development of a complete 8080 code genera- 
tor or interpreter is required to complete integrated program 
testing and timing tests. This will determine program correct- 
ness and checks the efficiency of NPS-PASCAL. Only then can 
firm conclusions be drawn on the usefulness of the complete 


system. 


at. 


IV. RECOMMENDATIONS 


Although NPS-PASCAL was designed to meet the criteria of 
STANDARD PASCAL, there are a number of extensions that could 
easily be made to the language to increase its usefulness. 
These include complete implementation of external functiors 
and procedures, string concatenation features, and additional 
standard functions and procedures. 

The grammar for NPS-PASCAL presently supports external 
subroutines. However, the means of accessing the compiled 
code have not been designed. Similarly, the ability to oper- 
ate on strings already exists in the grammar of NPS-PASCAL, 
but the associated mneumonics and compilation procedures are 
not developed. 

Prior to language extension concerns, however, comes the 
implementation of the Code Generator. With the added ability 


of symbol table access, run-time debugging should be easier 


to implement. 
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APPENDIX A - COMPILER ERROR MESSAGES 


Disk error : Recompile. 

Incorrect character : See User Manual. 

Symbol table overflow : Reduce number of declarations. 
Exponent size error : See User Manual. 

Integer size error : See User Manual. 


Improper parameter : The actual parameter type does not 
Match the formal parameter type. 


Invalid subrange error : Check type and limits of de- 
clared subrange. 


Invalid type error : Array component type specification 
invalid. 


Invalid array index : Array index types must be scalar - 
INTEGER or PFAL types are invalid. 


Invalid set element : Set elements must be scalar. 


Invalid constant variable : Constant entry in symbol 
table is invalid - probably due to a prior error. 


Assignment type error : Type of expression not com- 
patible with assignment variable type. 


Invalid read variable : Only INTEGER, REAL, or STRING 
values can be read. 


Duplicate type name : Type identifiers must be unique. 
Incorrect number of parameters : The total number of 
actual parameters fails to equal the total number of 
formal parameters. 


Label syntax error : All labels must be integers. 


Duplicate constant name : Constant identifiers must 
be unique. 


Invalid type identifier : Type identifier not previous- 
ly declared. 


Array nest overflow : Simplify declaration. 


Array dimension stack overflow : Simplify array dec- 
laration. 
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Variant stack overflow : Reduce the number of variant 
cases. 


Record field stack overflow : Reduce the number of 
fields specified. 


Variable declaration stack overflow : Reduce the 
number of variables declared per line. 


Invalid expression : The variable types within the 
expression are not compatible. 


Undefined label error : Label not declared in label 
statement. 


Incorrect actual varameter : The actual parameter 
must be a variable and not an expression. 


Invalid unary operator : Variable type must be 
INTEGER, REAL, or subrange of INTEGER. 


Invalid expression type : The types of variables used 
in an expression are incompatible. 


Undeclared procedure : Procedure identifier not pre- 
viously declared. 


Parameter error : This parameter format can only he 
used in a write statement. 


WRITESSTMT parameter error : The length parameter has 
to be of type INTEGER. 


WRITESSTMT parameter error : The parameter has to be 
of type REAL. 


Incorrect control variable : The control variable has 
not been declared or is of type REAL. 


State stack overflow : simplify program. 


Variable stack overflow : Reduce the length of variable 
printnames. 


No production : Syntax error in source line. 
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APPENDIX B - NPS-PASCAL OPERATORS 


A. ARITHMETIC OPERATORS 


Oper ator 


+ 


Operator 


+ 


Operation 


addition 
subtraction 
multiplication 
division 


division with 
truncation 


modulo 


Operation 
identity 


sign inversion 


B. BOOLEAN OPERATORS 


Operator Operation Type of operands 
OR logical "or" Boolean 
AND logical "and" Boolean 
NOT logical negation Boolean 
\ @ 
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Binary 


Type of operands 


integer or real 
integer or real 
integer or real 
integer or real 


integer 


integer 


Unary 


Type of operands 


integer or real 


integer or real 


Type of result 


integer or real 
integer or real 
integer or real 
real 


integer 


integer 


Type of result 


integer or reai 


integer or real 


Type of result 


Boolean 
Boolean 


Boolean 


3 C. SET OPERATORS 
| Operator Operation Type of operands Type of result 
+ set union any set type T T 
- set difference any set type T ag 
- set intersection any set type T bg 


D. RELATIONAL OPERATORS 


Operator Type of operands Type of result 
- any set, simple Boolean 


pointer or string type 


<> any set, simple Boolean 
pointer or string type 


< any simple or string type Boolean 
> any simple or string type Boolean 
<= any set, simple or Boolean 


string type 


> = any set, simple or Boolean 
string type 


IN left operand : any or- Boolean 
dinal type T 
right operand: SET OF T 


where simple type = INTEGER, REAL or scalar type. 
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i APPENDIX C - NPS-PASCAL STANDARD TABLES 


A. Table of standard identifiers 


Constants: 
false, true 
Types: 
integer, Boolean, real, char, text 
Program parameters: 
input, output 
Functions: 
abs, arctan, chr, cos, eof, eoln, exp, ln, odd, ord, 
pred, round, sin, sqr, sqrt, succ, trunc 
Procedures: 
get, new, page, put, read, readln, reset, rewrite, 
seek, write, writeln 
Directives: 


forward, external 


B. Table of reserved words 


and array begin case 
const div do downto 
else end eop file 
for function goto if 

in label mod nil 
not of or packed 
procedure program record repeat 
set then to type 


until var while with 


APPENDIX D - NPS-PASCAL LANGUAGE STRUCTURE 


This appendix describes the language in BNF notation followed 
by the semantic actions associated with the individual productions. 
The description, offset with asterisks, is given in terms of the 
compiler data structures and the intermediate code generated. Num- 
bered productions without a production result indicate empty pro- 
ductions. Items enclosed in brackets and separated by slants are 
alternative semantic actions. N/A indicates no action is taken. 
This notation is based on that used in Reference 9 and Reference 


10. 


1 <program> ::= <program heading> <block> . 

* <program heading> ; <block> 3; 

* A&@LL j {number of bytes allocated for variables} 
*  ENDP {end of file indicator} 


i <procedure heading> <block> . 
* <procedure heading> ; <block> ; 
* ALL ; {number of bytes allocated for variables} 
* ENDP {end of file indicator} 


3 <function heading> <block> . 

* <procedure heading> $ <block> ; 

* ALL 3 {number of bytes allocated for variables} 
* ENDP fend of file indicator} 


4 <program heading> ::= PROGRAM <program ident> ( 
<xfile ident> ) ; 
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<program identifier> ; <xfile identifier> 


<xfile ident> ::= <file ident>d 
<file identifier> 


<xfile ident> , <file ident> 
<xfile identifier> ; <file identifier> 


<prog ident> :3:= <identifier> 
N/A 


<file ident> ::= <identifier> 
<identifier> 


{enter file identifier in symbol table} 


<block> ::= <ldp> <cdp> <tdp> <vdp> <p&fdp> <stmtp> 
<label declaration part> 

<constant definition part> 

<type definition part> 

<variable declaration part> 

<procedure and function declaration part> 

<statement part> 


<ldp> ::= 
<empty> 


LABEL <label string ; 
<label string> 


<label string> ::= <label>d 
<label> {enter label in symbol table} 


label string> , <label> 
<label string> 5 <label> 
{enter label in symbol table} 


<label> ::= <number>d 
<number> {check number type} 


<cdp> sse 
<empty> 


CONST <const def> ; 
<constant definition> 


<const def> s:= <ident const def> ; 
<identifier constant definition> 


<const def> 3 <ident const def> 
constant definition> ; 
identifier constant definition>d 


<ident const def> ::= <ident const> = <constant> 
<identifier constant> ; <constant> 


habe ++ 
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! * {enter constant value in symbol table} 


<ident const> ::= <identifier> 
* <identifier> {enter constant entry in symbol table} 


j 21 <constant> ::= <number> 
L *  <number> {assign constant attributes} 


<sign> <number> 
* <sign> ; <number> Tixstan constant attributes} 


23 <constant ident> 
* constant identifier> {assign constant attributes} 


24 <sign> <constant ident> 
* <sign> 3 <constant identifier> 
* {assign constant attributes} 


25 <string> 
* <string> {assign constant attributes} 


26 <ceonstant ident> ::= <identifier>d 
* <identifier> 


27 <sign> :33= + 
* {assien SIGNTYPE value} 


* {assign SIGNTYPE value} 


29 <tdp> = 
* <empty> 


30 TYPE <type def string> 
* <type definition string> 


31 <type def string> ::= <type id> 
* <type identifier> 


32 <type def string> 3 <type id> 
* <type definition string> 3 <type id> 


33 <type id> st:= <type ids> = <type>d 
7 <type identifiers> ; <type> 
% {alter type entry} 


34 <type ids> ::= <identifier> 
*  <identifier> {enter type} 


35 <type> s::= <simple type> 
* <simple type> 


( 36 <structured type> 
* <structured type> : 

; 
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<pointer type> 
<pointer type> 


<simple type> ::= <type ident>d 
<type identifier> 

( <tident string> ) 
<type identifier string> 


<constant> .. <constant> 
<constant> ; <constant> 
{enter subrange entry in symbol table} 


<type ident> ::= <identifier> 
<identifier> {set TYPESLOCT} 


<tident string> ::= <identifier> 
<identifier> 
{enter user defined element in symbol table} 


<tident string> , <identifier> 


<tident string> ; <identifier> 
{enter user defined element in symbol table} 


<structured type> ::= <unpacked structured type> 
<unpacked structured type> 


PACKED 


<unpacked structured type> 
<unpacked structure type> 


<unpacked structured type> ::= <array type> 
<array type> 


<record type> 
<record type> 


<set type> 
<set type> 


<file type> 
<file type> 


ARRAY [ <index type string> ] OF 
<component type> 
<index type string> ; <component type> 


<array type> :: 


{enter array type, each index address in the symbol table, 
displacement vector information, and array offset in the 


symbol table} 


<index type string> ::= <index type> 
<index type> {set array dimensions} 
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<index type string , 
<index type> 

<index type string> ; <index type> 

{set array dimensions} 


<index type> ::= <simple type> 
<simple type> 


<component type> ::= <type> 
<type> 


<record type> ::= RECORD <field list> END 
<field list> {enter record type} 


<field list> <s::= <fixed part> 
<fixed part> 


<fixed part> + <variant part> 
<fixed part> ; <variant part> 


<variant part> 
<variant part> 


<fixed part> ::= <record section> 
<record section> 

<fixed part> ; <record section> 
<fixed part> 3 <record section> 


<record section> ::= <field ident string> : <type> 
<field identifier string> ; <type> 
{enter record attributes} 


<empty> 


<field ident string> ::= <field ident> 
<field identifier> 


<field ident string , 
<field ident> 
<field identifier string> ; <field identifier> 


<field ident> ::= <identifier>d 
<identifier> {enter record field in symbol table} 


<variant part> ::= CASE <tag field> <type ident> OF 
<variant string> 
<tag field> 5 <type identifier> 5 <variant string> 


CASE <type ident> OF 
<variant string> 
<type identifier> ; <variant string> 


<variant string> ::= <variant> 
<variant> 


<variant string> ; <variant> 
<variant string> ; <variant> 


<tag field> ::= <field ident> : 
<field identifier> {set TAG$FD to true} 


<variant> ::= <case prefix> ( <field list> ) 
<ease prefix> ; <field list> 


<empty> 


<case label list> ::= <case label> 
{set LABEL$SSTACK(SP)} 5 KASE 3 <case label> ; 
{LABELSSTACK(SP)} 


<€case label list> , <case labtel> 


<case label list> $ KASE 5 <case label> }; 


> 
{LABEL$STACK(MP)} 


<case label> ::= <constant> 
<constant> 


( {set variant attributes} / {set CASESSTMT label} ] 


<set type> ::= SET OF <base type> 
<base type> {enter type in symbol table} 


<base type> s::= <simple type> 
<simple type> 


<file tyve> ::= PILE OF <type> 
<type> fenter type in symbol table} 


<pointer type> ::= ~ <type ident> 
<type identifier> {enter type in symbol table} 


<vdp> <ss= 
<empty> 


VAR <var declar string> ; 
<variable declaration string> 


<var declar string> ::= <var declar> 
<variable declaration> 


<var declar string> 3 
€var declar> 
<variable declaration string> ; 
<variable declaration> 


<var declar> ::= <ident var string> : <type> 
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identifier variable string> ; <type> 
{set variable attributes} 


<ident var string> ::= <identifier> 
<identifier> {enter variable in symbol table} 


<ident var string> , 

<identifier> 
identifier variable string> ; <identifier> 
{enter variable in symbol table} 


<ps§fdp> s:= 

<empty> 5 LDII {number of parameters} ; 

LITA {porf PRT address} ; LITA {porf SBP} ; SAVP 
{only if SCOPESNUM > 1} 


<porf declar> 
<procedure or function declaration> ; 
LDII {number of parameters} 
LITA {porf PRT address} 3 LITA {porf S3P} 3 SAVP 
{only if SCOPESNUM > 1} 


<porf declar> ::= <proc or fune> ; 
<procedure or function> 


<porf declar> <proc or funct> ; 
<procedure or function declaration> 
<procedure or function> 


<proc or funct> ::= <procedure heading> <block> 
<procedure heading> ; <block> ; 

LITA {SBP} ; LITA {PRT address} ; UNSP; 

RIN ; LEBEL {procedure label + 1} 5 LDII @ 3 

LITA {SBP} ; STDI {SBP initially 2} 


<procedure heading> <directive> 
<procedure heading> 3; <directive>d 


<function heading> <block> 
<function heading> $3 <block> ; 
LITA {SBP} ; LITA {PRT address} ; UNSP; 
RIN + LEL {procedure label + 1} ; LDII @ ; 
LITA {SBP} §; STDI {SBP initially 0} : 


<function heading> <directive> 
<function heading> ; <directive> 


<directive> ::= <identifier> ‘ i ” 
<identifier> {determine if forward or external } 


<procedure heading> ::= <proc id> ; 
<procedure identifier> 


<proc id> ( 
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% % 


<formal para section list> ) 3; 
<procedure identifier> ; 
<formal parameter section list>d ; 
{generate listing of formal parameter types and their 
associated PRT addresses in symbol table} 


<proc id> ::= PROCEDURE <identifier> 
<identifier> {enter procedure in symbol table} 


<formal para sect list> ::= <formal para sect> 
<formal parameter section> 
{set formal parameter attributes} 


<formal para sect list> ; 
<formal para sect> 
<formal parameter section list> ; 
<formal parameter section> 
{set formal parameter attributes} 


<formal para sect> ::= <para group> 
<parameter group> 


VAR <para group> 
<parameter group> 
{modify variable parameters FORMSFIELD entry} 


FUNCTION <para group> 
<parameter group> . 


PROCEDURE <proc ident list> 
<procedure identifier list> 


<proc ident list> ::= <identifier> 
<identifier> 


<proc ident list> , <identifier> 
<procedure identifier list> ; <identifier> 


<para group> ::= <para ident list> : <type ident> 
<parameter identifier list> 5 <type identifier> 


€para ident list> ::= <identifier> 
<identifier> {enter formal parameter in symbol table} 


<para ident list> , <identifier> 
<parameter identifier list> ; <identifier> 
{enter formal parameter in symbol table} 


<function heading> ::= <funct id> : <result type> ; 
<function identifier> ; <result type> 
{set the function’s type field} 


<funct id> ( 
<formal para sect list> ) : 
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<result type> ; 
<function identifier> ; 
<formal parameter section list> 3 <result type> 
{generate listing of formal parameter types and their 
associated PRT addresses in symbol table; set the 
function’s type field} 


<funct id> ::= FUNCTION <identifier> 
<identifier> {enter function in symbol table} 


<result type> :: 
<type identifier> 
{allocate proper length of function in the PRT} 


= <type ident> 


<stmtp> ::= <compound stmt> 
<compound statement> 


<stmt> :3:= <bal stmt> 
<balanced statement> 


<unbal stmt> 
<unbalanced statement> 


<label def> <stmt> 
<label definition> 3; <statement> 


<bal stmt> ::= <if clause> <true part> ELSE <bal stmt> 
<if clause> 5; <true part> 3 <balanced statement> ; 
LBL {LABELSTACK (MP) +1} 


<simple stmt> 
<simple statement> 


<unbdal stmt> s:= <if clause> <stmt> 
<if clause> ; <statement>d 3; 
LBL {LABELSTACK(M?)} 


<i? clause> <true part> ELSE 
<unbal stmt> 

<if clause> 5 <true part> ; 

<unbalanced statement> ; 

LBL {LABELSTACK (MP) +1} 


<if clause> 
<expression> 


ss= IF <expression> THEN 
’ 
BLC {LABELSTACK 


NOTX 3 {set LABELSTACK(MP)} 3; | 
(MP) } | 


€<true part> ::= <bal stmt> 
<balanced statement> ; 

BRL Hiipetienlareisy ; 
LBL {LABELSTACK (SP-1) } 


label def> ::= <Clabel> : 
<label> ; LBL {PRT address} 
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<simple stmt> ::= <assignment stmt> 
<assignment statement> 


<procedure stmt> 
<procedure statement> 


<while stmt> 
<while statement> 


<repeat stmt> 
<repeat statement> 


<for stmt> 
<for statement> 


<case stmt> 
<case statement> 


<with stmt> 
<with statement> 


<goto stmt> 
<goto statement> 


<compound stmt> 
<compound statement> 


<empty statement> 


assignment stmt> ::= <variable> := <erpression> 
<variable> ; <expressionm> ; 

LITA {variable PRT address} 

(STD / STDI / STDB / CNAI $ STDB} 


€variable> ::= <variable ident> 
<variable identifier> 


<variable> ~ 
<variable> {NOT IMPLEMENTED} 


<variable> [ <expres list> ] 
<variable> ; <expression list> ; 
LDII {variable PRT address} ; 
SUB {number of array indicies} 


<variable> . <field ident> 
C<variable> ; <field identifier> 
{modify PRT location and variable type} 


C<variable ident> ::= <identifier> 
<identifier> {set variable type and PRT location} 
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<expres list> ::= <expression> 
<expression> 


<expres list> , <expression> 
<expression list> ; <expreszion> 


<expression> ::= <simple expression> 
<simple expression> 


<simple expression> 

<relational operator> 

<simple expression> 
<simple expression> ; <relational operator> }; 
<simple expression> ; 
(EQUI / NEQI / LEQI / GEQI / LSSI / GRTI / 
EQLB / NEQB / LEQB / GEQB / LSSB / GRTB / 
EQLS / NEQS / LEQS / GEQS / LSSS / GRTS / 
EQSET / NEQST / INCL1 / INCL2 / XIN] 


<relational operator> ::= = 
{set relational operator} 


< > 
{set relational operator} 

<= 
{set relational operator} 

> =z 
{set relational operator} 

4 
{set relational operator} 

> 
{set relational operator} 

IN 


{set relational operator} 


<term> <::= <factor> 
<factor> 


<term> <multiplying operator> <factor> 
<term> 3; <multiplying operator> ; <factor> ; 
(MULI / MULB / UNION / CNVI ; CN2I ; DIVE / 
DIVB / DIVI / MODX / ANDX] 
<multiplying operator> ::= * 
{set operator type} 
{set operator type} 
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| Macomintesy --- 


DIV 
{set operator type} 

MOD 
{set operator type} 

AND 


{set operator type} 


<simple expression> ::= <term> 
<term> 


<sign> <term> 
<sign> 3; <term> ; [NEGI / NEGB] 


<simple expression> 

<adding operator> <term> 
<simple expression> ; <adding operator> ; 
<term> ; 


(UNION / ADDI / ADDB / STDIF / SUBI / SUEBB / BOR] 


adding operator> ::= + 
{set overator type} 


{set operator type} 


OR 
fset operator type} 


<factor> :3:= <variabdle> 

<variable> ; ; 

( {built-in-function identifier} / LITA {PRT location} 
(LODI / LOD / LOD) / LDII {value} / LDII {value} ; N 
LDBI {value} / LDBI {value} ; NEGB ] 


; 
EGI / 


<variable> ( <actual para list> ) 
<variable> § <actual parameter list> ; 
{verify parameter count} 
{ {built-in function identifiers} / LITA {PRT location} 3 
{[ LOD / LODI / LoDB } j 


( <expression> ) 
<expression> 


<set> 
<set> {NOT IMPLEMENTED} 


NOT <factor> 
<factor> 3 NOTX 


<number> 


<number> 
(LDII {integer value} / LDIB {BCD real value}] 


NIL 


<string> 
<string> } LDSI {ACCUM} 3; NOP 


actual para list> <::= <actual para> 
<actual parameter> {initialize parameter count} 


<actual para list> , 

<actual para> 
factual parameter list> 3; <actual parameter> 
{incriment parameter count} 


<set> ::= [ <element list> ] 
<element list> {NOT IMPLEMENTED} 


<element list> ::= 
<empty> {NOT IMPLEMENTED} 


<xelement list> 
<xelement list> {NOT IMPLEMENTED} 


<xelement list> ::= <element> 
<element> {NOT IMPLEMENTED} 


<xelement list> , <element> 
<xelement list> ; <element> {NOT IMPLEMENTED} 


<element> 


::= <expression> 
<expression> 


<expression> .. <expression> 
<expression> ; <expression> 


<goto stmt> s:= GOTO <label> 
<label> 5 BRL {PRT location} 


<compound stmt> ::= BSGIN <stmt lists> SND 
<statement lists> 


<stmt lists> ::= <stmt> 
<statement> 


<stmt lists> 3 <stmt> 
<statement lists> ; <statement> 


<procedure stmt> ::= <procedure ident» 
<procedure identifier> ; 


aT procedure identifier} / PRO {procedure label} ; 


<procedure ident> ‘ 
<actual para list> } 
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<procedure identifier> ; <actual parameter lists> ; 
Poet parameter count} 

eyes procedure identifier} / PRO {procedure label} ; 
DEL 


<procedure ident> ::= <identifier> 

<identifier> 

{ {determine which built-in procedure} / 
{store procedure attributes in stacks} ] 


actual para> ::= <expression> 

<expression> 3; 

{ PARMX {if READPARMS = false} / 
{ WRT / WRTB / WRTI / WRTS J] {if WRITESSTMT = true} / 
{ RDV / RDVB / RDVI / RDVS } {if READSSTMT = true} ] 


<expression> : <expression> 
<expression> 5» <expression> 3; 
{ WRTB @1 / WRTS 21 } 


<expression> : <expression> ; 
<expression> 

<expression> ; <expression> ; <expression> ; 

wRT3B 2 


<case stmt> ::= <case express> <case list elemt list> 
END 

<case express> ; <case list element list> ; 

{ set LARELSSTACK (MP) } LBL {LABELSSTACK(MP) } 


<case express> ::= CASE <expression> OF 
<expression>  {CASESSTMT = true} 
{set LABELSSTACK(MP) , incriment CASESCOUNT} 


<case list elemt list> ::= <case list element> 
<case list elenent> ; BRL {LABELSSTACK(MP-1)} ; 
LBL {LABELSSTACK(MP)+1} 


<case list elemt list> ; 
<case list element> 
<case list element list> ; <case list slement> ; 
BRL {LABELSSTACK(MP-1)} ; LBL {LABELSS?PACK(SP)+1} 


<case list element> ::= 
<empty>  {CASES$STMT = false} 


<case prefix> <stmt> 
<case prefix> ; <statement> 


<case prefix> ::= <case label list> : 
€case label list> } BRL {LABELSSTACK(MP)+1i} ; 
LBL {LABELSSTACK(MP)} 


<with stmt> <s:= <with> <rec variable list> <do> 
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<bal stmt> 
C<with> 5; <record variable list> 3 <do> ; 
<balanced statement> {NOT IMPLEMENTED } 


<with> s::= WITH 
{NOT IMPLEMENTED} 


<rec variable list> ::= <variable> 
<variable> 


<rec variable list> , 
<vartable> 
<record variable list> ; <variable> 


<do> ::= DO 
{set LABELSSTACK(SP)} 
BLC {LABEL$STACK(SP)} 


<while stmt> ::= <while> <expression> <do> <bal stmt> 
<while>d 5 <expression> } <do> 5 <balanced statement> ; 
BRL {LABELSSTACK(MP)} } LBL {LABELSSTACK(SP-1)} 


<while> ::= WHILE 
{set See eeneni ee yi 
LBL {LABELSSTACK(SP) 


<for stmt> ::= FOR <control variable> := <for list> 
DO <bal stmt> 

control variable> ; <for'‘list> $3 <4o> ; 

<balanced statement> ; BRL {LABELSSTACK(SP-2)+1} } 

LBL {LABELSSTACK(SP-1)} 

<for list> s:= <initial value> <to> <final value> 

<initial value> 3; <to> ; <final value> ; 

GEQI 


<initial value> <downto> <final value> 
re ae value> 3; <downto> 3 <final value> 
LEOI 


<control variable> ::= <identifier> 
<identifier> {set variable type and PRT location} 


<initial value> ::= <expression> 

<expression> ; 

LITA {control variable PRT location} + [{ STOI / STO 1 ; 
{set LABELSSTACK(SP)} ; BRL {LABELS$STACK(SP)} ; 

LBL {LABELSSTACK(SP)+1} 3; 

LITA {control variable PRT location} ; ( STDI / STD ] 


<fimal value> :s= <expression> 
<expression> 


<repeat stmt> ::= <repeat> <stmt lists> UNTIL 


<expression> 


<repeat> ; <statement lists> 
BLC {LABELSSTACK(MP) } 


<repeat> ::= REPEAT 
{ set Peo deal 
LBL {LABELSSTACK(sp) 


€to> <= 


TO 
INC 3; LBL {LABELSSTACK(SP -1)} 


<downto> ::= DOWNTO 
DEC $; LBL {LABELSSTACK(SP-1)} 


, 


<expression> 


NOTX 


rn 


APPENDIX E - INOPERATIVE CONSTRUCTS 


The accompanying list shows the NPS-PASCAL constructs that 
had not been fully implemented at the start of this project. 
Those constructs requiring further work and testing at project 
completion are denoted with an asterisk. 

Since the original work on NPS-PASCAL was not based on 
STANDARD PASCAL CONSTRUCTS, it was necessary to first develop 
a new grammar utilizing the required special characters and 
reserved words, and following the rules stipulated in STANDARD 
PASCAL. Consequently, the inoperative constructs listing is 
based on STANDARD PASCAL constructs, and does not include 
PASCAL language extensions contained in NPS-PASCAL. 

- Program parameters specified in the program heading 

= Procedure and Function Declaration Part 

- Block structure 

- The WHILE statement 

= The FOR statement 

— The CASE statement 

- Array access 

- Packed arrays : 

- Record variant part 

- Record tag field 5 

- Record component access , 

- String Operators 

- The WITH statement” 


* 
- Set assignments 
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Set operators 

Set relational operators 

File buffer variables ? 

Standard file-handling operators 
Textfiles 

Pointer variables 7 

Procedure and Function Parameters 
Recursive execution of Procedures and Functions 
Procedure statements 

Function values 

Directives 

Standard Procedures 

Standard Functions 

Program input from input file 
Program output to output file 


, 


* 
Input and Output to non-standard files 


uu 
7 
a 


APPENDIX F - INTERMEDIATE CODE DECODE PROGRAM 


Since the NPS-PASCAL compiler was developed without the 
parallel development of the 8080 Code Generator, an alter- 
native means of checking the generated intermediate code was 
developed. The result is the PL/M program DECODE shown in 
the program listings. 

DECODE opens the compiler generated intermediate code file 
(<FILENAME>. PIN) and converts the hexadecimal values into the 
same NPS-PASCAL mneumonics found in the compiler. The para- 
meters associated with certain operators such as labels, branch- 
es, and load immediate mneumonics, are printed out immediately 
following the operator. Integer and real numbers are printed 
out in decimal format for ease of readability. Strings are 
displayed in their ASCII character format. 

The execution procedure for viewing the intermediate code 
is as follows: 

(1). Compile an NPS-PASCAL program using the command: 

PASCAL <FILENAME> . 
(2). Upon successful compilation, with no program errors, 
input the command: DECODE <FILENAME> . 
The contents of the <FILENAME> . PIN file will be printed 
out on the console. The DECODE program leaves the intermediate 
code intact in its file for further use in the Code Generator 


program. 
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APPENDIX G - SYMBOL TABLE DISPLAY PROGRAM 


A symbol table display program was developed as an aid to 
compiler development, and particularly, for use in program 
debugging. SYMBOLTABLE is a PL/M program that prints out the 
information stored in the SYM file created by the NPS-PASCAL 
compiler. This program is contained in the program listings 
section. 

SYMBOLTABLE contains many of the same features as DECODE 


to increase readability. Integer and BCD real values stored 


in the symbol table are output in decimal form. PRT addresses 


are also displayed in decimal format. Printnames, strings, 
and scalars are all shown as ASCII characters. Hash colli- 
sions with other program identifiers are indicated. Identi- 
fier types are specified along with any additional data that 
Singles out this identifier. 

Of course, program execution requires the NPS-PASCAL pro- 
gram in question to be compiled first. After receiving the 
compilation complete message on the monitor (a zero error 
count is not required), the user. can print out the program 
symbol table information using the command: SYMBOLTABLE 
<FILENAME>. The symbol table file remains intact on the disk 


for use during the 8080 code generation phase. 
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